home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / [_Graphic_18036310102004.psc / frmHouse.frm < prev    next >
Text File  |  2004-10-10  |  6KB  |  193 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHouse 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " Enter The House"
  5.    ClientHeight    =   4320
  6.    ClientLeft      =   2.4579e5
  7.    ClientTop       =   330
  8.    ClientWidth     =   6420
  9.    Icon            =   "frmHouse.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "frmHouse.frx":000C
  14.    ScaleHeight     =   4320
  15.    ScaleWidth      =   6420
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Label Label2 
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "Use this system to restrict entrance to a program or to certain sensitive data."
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   9.75
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H00FFFFFF&
  30.       Height          =   495
  31.       Left            =   120
  32.       TabIndex        =   1
  33.       Top             =   240
  34.       Width           =   6135
  35.    End
  36.    Begin VB.Image imgDoor 
  37.       Height          =   1140
  38.       Left            =   5880
  39.       Picture         =   "frmHouse.frx":96E7
  40.       Top             =   1800
  41.       Visible         =   0   'False
  42.       Width           =   465
  43.    End
  44.    Begin VB.Label Label1 
  45.       Alignment       =   2  'Center
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "To pass the lock you must knock (click) on some windows or doors in the correct order. Don't forget the little window !"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00FFFFFF&
  58.       Height          =   495
  59.       Left            =   120
  60.       TabIndex        =   0
  61.       Top             =   3720
  62.       Width           =   6135
  63.    End
  64.    Begin VB.Image imgLock 
  65.       Height          =   135
  66.       Index           =   6
  67.       Left            =   4200
  68.       Top             =   1560
  69.       Width           =   135
  70.    End
  71.    Begin VB.Image imgLock 
  72.       Height          =   375
  73.       Index           =   5
  74.       Left            =   4560
  75.       Top             =   1920
  76.       Width           =   275
  77.    End
  78.    Begin VB.Image imgLock 
  79.       Height          =   255
  80.       Index           =   4
  81.       Left            =   3720
  82.       Top             =   2040
  83.       Width           =   255
  84.    End
  85.    Begin VB.Image imgLock 
  86.       Height          =   375
  87.       Index           =   3
  88.       Left            =   4575
  89.       Top             =   2760
  90.       Width           =   375
  91.    End
  92.    Begin VB.Image imgLock 
  93.       Height          =   375
  94.       Index           =   2
  95.       Left            =   3720
  96.       Top             =   2760
  97.       Width           =   375
  98.    End
  99.    Begin VB.Image imgLock 
  100.       Height          =   1140
  101.       Index           =   1
  102.       Left            =   2700
  103.       Top             =   2125
  104.       Width           =   465
  105.    End
  106.    Begin VB.Image imgLock 
  107.       Height          =   855
  108.       Index           =   0
  109.       Left            =   1605
  110.       Top             =   2280
  111.       Width           =   700
  112.    End
  113. End
  114. Attribute VB_Name = "frmHouse"
  115. Attribute VB_GlobalNameSpace = False
  116. Attribute VB_Creatable = False
  117. Attribute VB_PredeclaredId = True
  118. Attribute VB_Exposed = False
  119. '
  120. ' The lock Nr represent the following sequence:
  121. '
  122. ' Windows 1st floor right, 2th floor left, door,
  123. ' big window left, 2th floor right, little window top
  124. '
  125. ' Do NOT knock on the 1st floor left window!
  126. ' If You knock at the wrong place you'll need to startover!
  127. '
  128. ' You can use any picture, a face, group of persons, machine,
  129. ' or landscape (click the third cow left of the sheep) with any
  130. ' number of clicking points, and any sequence, to enter any part
  131. ' of a program, window or secured data. Unlimited possibilities!!!
  132. '
  133. ' A Lock number is composed of the imgLock's index numbers
  134. ' in a selected order.
  135. '
  136. ' All credits to Paul Turcksin for his great NoPassword idea.
  137. '
  138. ' D. Rijmenants
  139. '
  140. Private LockNr As String
  141. Private currNr As Integer
  142.  
  143. Private Sub Form_Load()
  144. ' set the secret combination
  145. LockNr = "341056"
  146. '
  147. ' You could change this combination on a regular base,
  148. '
  149. ' or don't knock on doors at Tuesdays:
  150. '   If WeekDay(Date) = 3 Then LockNr = "34056"
  151. ' or revers the sequence each odd month:
  152. '   If Month(Date) Mod 2 = 1 Then LockNr = "650143"
  153. ' or knock each 1st of the month two sequences in a row
  154. '   If Day(Date) = 1 Then LockNr = "341056341056"
  155. '
  156. ' You could preset the sequence by the user, by asking him
  157. ' to click a sequence, and then store it. The code could
  158. ' be linked to a username, and another user will use an
  159. ' other sequence! If you have anough clickpoint it's a highly
  160. ' secure 'password'
  161. '
  162. ' As for the pictures, wath about knocking on your bosses
  163. ' left eye, than his mouth, knock him on the nose and then
  164. ' the right eye to enter the company's database. Secure as hell!
  165. ' Imagin the number of combinations on a company's group-photo
  166. ' of 30 persons where you have to click five in the wright sequence.
  167. '
  168. ' LET YOUR IMAGINATION GO WILD ON THIS !!!
  169. '
  170. End Sub
  171.  
  172. Private Sub imgLock_Click(Index As Integer)
  173. ' check if clicked index is the correct next click
  174. If Index = Val(Mid(LockNr, currNr + 1, 1)) Then
  175.     'correct click, set next expected number
  176.     currNr = currNr + 1
  177.     If currNr = Len(LockNr) Then Call PassedLock
  178.     Else
  179.     'wrong click, start all over
  180.     Me.imgLock(1).Picture = Nothing
  181.     Me.Label1.Caption = "To pass the lock you must knock (click) on some windows or doors in the correct order. Don't forget the little window !"
  182.     currNr = 0
  183.     End If
  184. End Sub
  185.  
  186. Private Sub PassedLock()
  187. ' You're in !!!
  188. ' Here you can place any code to proceed in your program...
  189. Me.imgLock(1).Picture = Me.imgDoor.Picture
  190. Me.Label1.Caption = "You're in the house !!! (or any of Your secret programs)"
  191. Beep
  192. End Sub
  193.